home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / DTP / DTP_TEX / 3239.ZIP / DVIMTP.ZIP / DBGOPEN.H < prev    next >
Text File  |  1987-10-21  |  831b  |  27 lines
  1. /* -*-C-*- dbgopen.h */
  2. /*-->dbgopen*/
  3. /**********************************************************************/
  4. /****************************** dbgopen *******************************/
  5. /**********************************************************************/
  6.  
  7. /* This used to be a long in-line macro, but some compilers could not */
  8. /* handle it. */
  9.  
  10. void
  11. dbgopen(fp, fname, openmode)
  12. FILE* fp;                /* file pointer */
  13. char* fname;                /* file name */
  14. char* openmode;                /* open mode flags */
  15. {
  16.     if (DBGOPT(DBG_OKAY_OPEN) && (fp != (FILE *)NULL))
  17.     {
  18.     (void)fprintf(stderr,"%%Open [%s] mode [%s]--[OK]",fname,openmode);
  19.     NEWLINE(stderr);
  20.     }
  21.     if (DBGOPT(DBG_FAIL_OPEN) && (fp == (FILE *)NULL))
  22.     {
  23.     (void)fprintf(stderr,"%%Open [%s] mode [%s]--[FAILED]",fname,openmode);
  24.     NEWLINE(stderr);
  25.     }
  26. }
  27.